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Introdução 


Este livro contém programas de jogos de 
guerra para microcomputadores. Todos 
os programas são compativeis com os 
micros fabricados no Brasil. 

Embora os micros nacionais utilizem a 
linguagem BASIC, existem três dialetos 
ou variações dessa linguagem, 
dependendo da márca e modelo do 
micro. Os micros nacionais são divididos 
em três “famílias”: a família Sinclair 
(CP-200, TK-83, TK-85), a família TRS-80 
(CP-300, DGT-1000, etc.) e a familia 
Apple (Maxxi, Ap-II, etc.). Se você não 
souber a que familia pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros CP-200 
e TK-83 (daqui por diante, tudo o que 
dissermos do TK-83 também se aplica ao 
CP-200). As linhas que precisam ser 
mudadas para que o programa funcione 
em outros computadores estão indicadas 
por simbolos e as modificações aparecem 
no final de cada listagem. 

Para cada jogo, há idéias para 
modificações e extensões dos programas. 
No final do livro, você encontrará 
algumas “dicas” para escrever seus 
próprios programas. Incluímos também 
uma tabela de equivalência para ajudá-lo 
a adaptar ao seu micro programas 
publicados em revistas e em outros 
livros, além de uma lista das instruções 
de BASIC usadas neste livro, com as 
respectivas definições. 


Como carregar os programas 


Se o seu micro não é o TK-83, as linhas 
que devem ser mudadas estão indicadas 
pelos seguintes simbolos: 

ATK-85 E 

Bfamilia TRS-80 - — 

O família Apple 


Cada vez que você vir o símbolo da 
família a que pertence o seu micro, 
procure no final da listagem uma linha 
com o mesmo simbolo e -o mesmo 
número. Use-a no lugar da linha 
correspondente da listagem principal. 


Pontos portao 


1 Escreva as linhas exatamente como na 
listagem, incluindo todos os espaços e 
sinais de pontuação. 

2 Depois de bater cada linha, verifique 
na tela se está tudo certo. 

3 Antes de começar uma nova linha, 
aperte a tecla RETURN, ENTER ou 
NEWLINE. 

4 Cuidado para não pular uma linha ou 
misturar duas linhas. Use uma régua ou 
pedaço de papel para marcar o lugar 
onde está na listagem. 

5 Preste atenção nos símbolos que 
identificam as diferentes famílias e use a 
instrução apropriada para o seu modelo 
de micro. 

6 Se você está usando um micro TK-83 
ou TK-85, não deve escrever as 
instruções letra por letra. Em vez disso, 
use as teclas correspondentes a cada 
instrução. 

Talvez você prefira que alguém leia o 
programa para você enquanto aperta as 
teclas. Nesse caso, explique para o seu 
amigo que ele deve ler todas as vírgulas, 
pontos, parênteses e espaços. 


Como verificar os programas 


Depois de carregar o 
programa, consulte o 
manual do micro para 
ver como fazê-lo 
aparecer na tela. (Em 
geral, basta escrever 
LIST.) 

Verifique se todas as | 
linhas estão corretas. E 
muito fácil cometer 
erros; não se admire | 


para saber como 
alterar as letras ou 
símbolos que estão 
errados. Em muitos 
casos, é mais fácil 
“tornar a escrever a 
linha inteira. À linha 
antiga (com o mesmo 
3) número) é 
automaticamente 
apagada. 


Eis uma lista dos erros mais comuns: 
1 Linha faltando. 
2 Linha com número errado. 
3 O começo de uma linha emendado no 
final da anterior. 
4 Falta de parênteses, vírgula, dois 
pontos, ponto-e-vírgula, ponto ou 
espaço, especialmente nas linhas mais 


compridas. Cuidado com os parênteses 
duplos. 

5 Linha errada para o seu modelo de 
micro. 

6 Troca de zero pela letra “O”. 

7 Números errados (com zeros a mais, 
por exemplo). 


Experiências com os jogos 


Este livro contém várias sugestões para 
modificar e ampliar os programas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; se sua idéia não 
der certo, você pode sempre voltar ao 
programa inicial. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos*, 
especialmente depois que estiver 


*Na página 35 há uma nota especial para os usuários do TK-85. 


familiarizado com eles. As instruçõe 
para isso estão na página de cada 
programa. 


Como executar os programas 


Para começar qualquer jogo, você deve 
escrever RUN. Em alguns jogos, as 
coisas acontecem muito depressa, de 
modo que é melhor ler atentamente as 
instruções antes de começar. 

E bastante provável que o programa 
ainda contenha alguns erros. Nesse caso, 
não acontecerá nada ou o jogo dará 
resultados imprevistos. Pode ser que o 
computador mostre na tela um código de 
erro, que você pode procurar no 
manual. Isso o ajudará a localizar o erro. 
Liste o programa de novo e compare as 
instruções com as do livro, uma a uma. 

Quando o jogo terminar, aparecerá na 
tela uma mensagem (BREAK IN LINE 
200, por exemplo). Para jogar de novo, 
você deve escrever RUN. 

Você pode mudar à vontade o texto 
entre aspas que aparece depois de 
qualquer instrução PRINT. Também pode 
acrescentar novas mensagens. Para isso, 
escreva o número de uma linha que não 
aparece no programa (105, por exemplo, 
se voce quer incluir uma mensagem 


entre as linhas 100 e 110), escreva PRINT 
e depois o texto da sua mensagem entre 
aspas. 

Se o seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as instruções 
correspondentes e experimente usá-las 
nos programas deste livro. 


Em 2585, os humanos estão em guerra 
contra uma raça de robôs. Um míssil lançado 
pelos robôs acabou de cair e você precisa 
descobrir o código secreto que desarma a 
-ogiva nuclear. Se não conseguir, o Quartel- 
General da Terra será destruído. 

O seu computador sabe qual é a letra 
correta do código. Entre com um palpite e ele 
lhe dirá se a letra vem antes ou depois no 
alfabeto. Você tem direito a quatro tentativas 
antes de a bomba explodir. 

| 


Como o programa 
funciona 


“"BONBA-RELDGID" : ; 
Imprime o título e as 


“ESCREVA D CODIGO" instruções. 
“LETRA (A-Z) PARA" 

“DESARMAR À BOMBA." 

“"UOCE TEM 4 CHANCES" 


AD CRS CPO 
SVO SS SS 


” qe” 
Escolhe um número entre 1 
e 26, transforma-o em letra 
(o “código secreto”) e 
guarda-a em C$. 


Começo de um loop| 
que faz com que as| 
linhas de 100 a 140 
sejam repetidas 4 


FOR G=1 [0 4—————————— > ——>— vezes. 
INPUT G$ Guarda seu palpite em G$.| . 
IF G$=C$ THEN GDTO 21B ———————————— verifica se você escolheu a 


letra certa; em caso 
afirmativo, pula para 210. 


Verifica se a letra correta 
“S fica antes ou depois da que 
você escolheu e imprime 


Pt 
La! 
pi] 


FÉ | uma mensagem apropriada | 
q fes —— Fim do loop. Volta para 


outra tentativa. 


Imprime isto se você errou 
E quatro vezes. 


CERTO ERA ":Cs 


Imprime isto se você 
: pe 


listagem acima é para o TK-83. Para 

os outros computadores, faça as mudanças abaixo. 
LET CS=CHR$C64+INTCRND(L)s26+1)) 
LET Fija HRS CEA ENTOANE CA) s56 +13) 
LET CE&=CHREC64+INTIRND=EZá+I)) 


=» PIPIPS PJ tapa foatet 
ES PI = ES) NOO IO 
EBD SOS 


Como aumentar o programa Problema 

Você pode fazer o computador 

imprimir uma mensagem especial se ; 

você acertar na última tentativa. Como você modificaria o programa 
Acrescente um ponto-e-vírgula no para aumentar ou diminuir o número de 
final da linha 220, assim: *|tentativas? 

220 PRINT “VOCÊ CONSEGUIU”; 

e substitua a linha 230 por: 

230 IF G=4 THEN PRINT 


ny 


Você é um operador de 
comunicações por laser. 
missão é interceptar as 
mensagens dos robôs e transmiti- 
las para o Quartel-General. Uma 
mensagem decisiva em código 
está sendo esperada. Se conseguir 
transmiti-la corretamente, o 
ataque dos robôs será rechaçado. 
Neste jogo, você precisa 


IV [Mensagem Decisiva 


grupo de letras. O 
computador pede a você 
um número de dificuldade | 
entre 4 e 10. Quando você 
entra com a resposta, as 
letras aparecem na tela e 
logo desaparecem. 
Memorize-as e entre com 
elas no computador, na 
mesma ordem em que 
foram mostradas na tela. 


omo tornar o jogo mais difici 


Voce pode mudar o programa para fazer 
com que a mensagem secreta contenha 
também números e sinais de pontuação. 
Para isso, substitua a linha 90 por: 
90 LET M$ = M$ + CHRSUINT(RND=43+21)) 
090 LET M$= M5+ CHRS(INT(RND(1)+43 + 48)) 


( 
( 
E 90 LET M$ = M$ + CHRS(INT(RND(0)*43 + 48)) 
A 90 LET M$ = M& + CHRS(INT(RND>43 + 48)) 


AM TK-83 usa um 
— código diferente 
para as letras. 
Todos os outros 
micros usam O 


N código ASCII. 


Duelo 


Vocês estão de costas um 
para o outro. Caminham 
dez passos, dão meia- 
volta e sacam as armas. 
Quem será mais rápido no 
gatilho? 

O computador imprime 
os números de 1 a 10 para 
representar os 10 passos, 
faz uma pausa e imprime 


ELE SACOU... Você deve , 


E na 
“ tela;Se for e 
SAS sulicientemen rápido. Px 

“ao CONSEguirá “derrotar seu 


ES oponentes, Não aperte a 


AR Pa apertar uma focio cd 
Ni (qualquer tecla) no 4/1.) 
di: A TEREM nto ' que A 


Como tornar o jogo mais difícil 
Para incluir a possibilidade de você 
errar o tiro, faça as seguintes mudanças: 
Na linha 140, mude 19 para 220. 

Acrescente as pad linhas: 


018 CLS 
28 PRINT “DUELO! 
36 PRINT “VOCES ESTAD PRONTOS” 
40 PRINT “VAD DAR 1B PASSOS..." 
58 FOR I=1 TO 18 
68 PRINT I5t.. 

o exTI 
SB PRINT 

695 FOR I=1 TO RND*20 
100 NEXT 1 

Oiib IF INKEY$<>"" THEN GOTO 160 F—— 


128 PRINT "RE DACs "EIS 


MoiJb FOR I=i TO 5 | 


0148 IF INKEY$<S>"" THEN GDTO 196 
156 NEXT 1 


Pad) 
PARA O 
TECLADO O) 


168 PRINT “ELE ATIROU.“ E 
170 PRINT "VOCE MORREU." 
126 GOTO 218 
198 PRINT "MAS VOCE ATIRDU PRIMEIRO” |-— 
288 PRINT "E O MATOU.” 
218 STOP 
A listagem acima é para o TK-83. Para 
os outros computadores, faça as 
mudanças abaixo. 
e iB HOME 
MoóS FOR J=i TO 3BD E NEXT JI— 
96 FOR I=i TO AND(1)=1006 
M9B FOR I=i TO RND(B)xiBhB 
eiig IF PEEK(-16334)>127 THEN GOTO 146 
eizb FOR I=1i TO 28 
mMiszb FOR I=i TO 56 
0146 IF PEEK(-16394)>127 THEN GOTO 19 


220 IF RND >.3 THEN GOTO 190 
€ 220 IF RND(1) >.3 THEN GOTO 190 
EE 220 IF RND(0) >.3 THEN GOTO 190 
230 PRINT “E VOCÊ ERROU” 
240 GOTO 90 


Como o programa funciona 
Este loop é repetido 10 vezes. 
O computador imprime um 
número e dois pontos de 
cada vez. 

-— — — Este é um loop de espera. O 

computador passa um certo 

tempo, que depende do valor 
de RND, sem fazer nada. 

Verifica se você não se 

À precipitou, apertando uma 

5 tecla antes de ELE SACOU 

aparecer na tela. 

Imprime o sinal de que você 

pode apertar uma tecla. 

—  —— Verifica o teclado para ver se 
você está apertando uma 
tecla; em caso afirmativo, 
pula para 190. (Observe que 
a linha 140 está no meio de 
um loop. Isto faz com que o 
computador verifique o 
teclado várias vezes, o que 
lhe dá uma oportunidade 
razoável de apertar uma 
tecla.) 

— | — Chega aqui se você perdeu. 

(Ou se se precipitou ou não 

“apertou nenhuma tecla a 

tempo.) 


Chega aqui se você ganhou. 


Loops de espera 
podem ser escritos e 
uma linha, como na 


linha 65, a não ser no 
TK-8 


—  — Um loop de espera adicional 
para os micros mais rápidos. 


ara verificar o 
teclado, alguns - 
micros usam a 
instrução INKEYS, 


Mude o programa 
para que o 

computador também 
possa errar o tiro. 


Batalha no Deserto 


A última fortaleza dos robôs fora dos EUR* fica nas ruínas de um 
antigo castelo, no meio do deserto. Você é o comandante do grupo de 
tanques que foi enviado para destruí-la. Só lhe restam cinco mísseis. 

Você precisa calcular a direção e a elevação antes de cada disparo. 

O computador pede para você fornecer um ângulo de direção entre 
-90º (tudo para a esquerda) e +90º (tudo para a direita) e um ângulo 
de elevação entre 0º (horizontal) e 90º (vertical). A elevação determina 
a que distância do ponto de lançamento o míssil vai cair. 

Conseguirá destruir a fortaleza dos robôs? 


[5 dm 
AE Dt 


Como o programa funciona 


: Escolhe um número inteiro 
ERTO" entre -90 e 90 para a 


á Lê PRINT “BATALHA NO DES 
MoO:b LET EINTIANDHISI)-DD o gireção. 
MOS LEI DADO Escolhe um número entre 01) 
e 1 para a distância do 
48 FOR 6=i TO A ' nico castelo. 
it +” y n" 
] h pu pp IP is É Pede seus palpites e os 
78 PRINT “ELEVACAO (8 A 98) 7º guarda em Tl e B. 
86 INPUT 8 Usa o seu ângulo de 
96 LEI Di=SIN(2x(B/ISBes,I4ló))— clevação para calcular a 
distância percorrida pelo 
míssil. (À resposta está 
entre 0 e 1.) 
LB6 IF ABSCT-TiD<2 AND ABS(D-DL)<,85 THEN GOTO 2 
Ê nesse caso pula para 220. 
“absoluto” de um 
número, ignorando o 
sinal de + ou de -. Compara o seu ângulo de 
direção com o número 
te) escolhido na linha 20 e 
118 PRINT "NISSIL CAIU * imprime uma mensagem 
128 JE TIC] THEN PRINT “A ESQUERDA “5 | apropriada. 
136 JF Ti>T THEN PRINT "A DIRELTA "5 
148 IF ABS(DI-D)>.05 AND TÍSST THEN PRINT PE“; Verifica se deve imprimir 
“E” ou não, comparando a 
O ponto-e-virgula no final de uma disldnsio. ué é na 
pa instrução PRINT avisa ao computador percorreu com CAnumeto 
nc para não mudar de linha. escolhido na linha 30. 
> 156 LF D-D1>.85 THEN PRINT Gu Informa se o míssil 
198 [F D1-D>,85 THEN PRINT DEPOIS"; e caiu antes ou 
176 PRINT depois do alvo. 
IH PRI PRISSEIS ACABARAM” 
á A —— Chega aqui se você 
Sê E ROBOS REGISTIRAR Seda 
228 PRINT "xBUNUUUUNHAS" : x 
238 PRINT "VOCE CONSEGUIU! —————— Chega aqui se você 
STOP ganhou. 
7 A listagem acima é para o TK-83. Para do presto EE 


os outros computadores, faça as 
mudanças abaixo. 
O 2h LET I=INTIRND(1)x181)-98 
BB 20 LET T=INTIAND(G)=181)-90 
O sb LET D=END(1) 
BB O LEI D=RND(d) 


Nos outros micros, a 
palavra pode ser omitida 


Problema 


Como você faria para incluir a 
possibilidade de os robôs atirarem em 
você antes de sua munição acabar? 


Hal 


O Rei está envolvido em uma 


guerra sangrenta com o seu 
maior inimigo, o Barão 
Traidor. Você é um dos 
arqueiros do Rei e neste exato 
momento está escondido nos 
arredores do castelo do Barão, 
tentando atingir os soldados 
que se encontram no interior 
do castelo. 

O computador imprime uma 
fila contendo oito pontos e um 
O. As teclas de 1 a 9 
correspondem à posição do 0 
na fila. Você dispõe de pouco 
tempo para apertar a tecla 
certa e atingir o O antes que 
ele desapareça. 

Quantos dos soldados do 


fa Como mudar a velocidade do jogo 


- | a dá Para mudar o tempo de que você dispõe para 

Ee a GS apertar uma tecla, basta mudar o último 
número da linha 110. Quanto menor o 
número, menor o tempo. 


Va 


= e aa = a ES , ' 

ma a. nn a = ES 
“çõ em 7 QO >: 
E : eo: 
seres AÊ RA = Ss 

k as ai £ a a 

2 dm Br A 

n E ces Ea - msi ( At 


df 
| 
A 
4 


Repare como é feita q 
contagem (linhas 20 e 180). 
Você pode usar o mesmo 
método em outros 


programas. 


Invasão dos 
Robôs 


A Terra está sendo 
invadida por robôs de 
vários tipos. Você dispõe 
de muitas armas, mas 
cada uma só faz efeito 
contra um certo tipo de 
robô. 

Um simbolo de código, 
identificando o robô 
atacante, aparece na tela. 
Aperte imediatamente a 
tecla com o mesmo 
simbolo — em alguns 
casos é preciso apertar 
também a tecla SHIFT — 
e veja quantos robôs 
consegue destruir. 


Como aurnentar a 
velocidade do jogo 


Para tornar o jogo mais 
rápido, substitua o último 
número da linha 140 por um 
número menor. 
Movimento do cursor 


Talvez haja uma maneira 
mais simples de mover o 
cursor para um determinado 
ponto da tela (linhas 
100-130). Consulte o manual 
do seu micro. 


Problema 


Estes são 
Ra, os robôs 


q l 
PO SB mais perigosos. IR! 
o a 


U 


Mecanos  Latóides  Galipões Sucatinos Charangos 


Modifique o programa para ganhar 100 pontos pelos robôs acima e 
apenas 10 pontos pelos outros. 


Arma Secreta 


Se você conseguir destruir o depósito subterrâneo de peças dos 
robôs, que fica em algum lugar dos EUR, os humanos vencerão 
a guerra. 

Você dispõe de uma arma secreta que é capaz de abrir 
buracos no chão, vaporizando tudo o que encontra. Entretanto, o 
depósito está muito bem escondido. Só lhe resta disparar a arma 
cegamente, na esperança de atingir o alvo. 

O computador pede a você um número de dificuldade (o menor 
número permitido é 4) e depois lhe pergunta quais são as 
coordenadas X e Y do alvo. (Entre com as coordenadas 
separadamente, apertando RETURN, ENTER ou NEWLINE depois 
de cada número.) 

Para saber quais são os valores possíveis de X e Y, leia com 
atenção a listagem do programa. - Y 


SQR 


extrai a 


Problema 


Veja se consegue acrescentar é 
seguinte sistema de contagem: 
1 ponto cada vez que o tiro 
passar perto. 
10 pontos cada se você 
acertar no alvo. 


Fuga! 

Os robôs o capturaram e o trancaram em uma cela, depois de lhe 
tomar todas as armas. De repente, você se lembra de que ainda está 
com o relógio de sonar, que pode ser ajustado para gerar qualque 
frequência. Se conseguir encontrar a frequência de ressonância dos 
seus guardas robôs, poderá destruí-los. 

Você precisa tomar cuidado para não usar frequências muito baixas, 
caso contrário o edifício poderá desabar, soterrando-o. Por outro lado, 
se a frequência for alta demais, sua cabeça doerá tanto que você terá 
que desistir. 

Conseguirá escapar aos horrores da prisão dos robôs? (Para saber E: 
quais são os valores de ns deve escolher, leia com atenção 


a listagem do programa. 
mo o programa funciona : 
ei CLS Co prog 


28 PRINT "FUGA" Escolhe um número entre 1 e 100 para 
E OZb LET F=INTCRND=1BB+I) r— a frequência dos robôs e guarda em F. 


4h LET L=1 Guarda | em Le H. Essas variáveis 

sa LET H=1 são usadas quando você escolhe uma 
frequência muito alta ou muito baixa 
— veja linhas 170 a 190 e 230 a 250. 


60 FOR G=1 TO 5 Rm a | 
76 PRINT "PALPITE "; “a Começo de um loop de 5 tentativas. 


SB INPUT F1 Pede a você um palpite e guarda em 
?B IF ABSCF-Fi)<5 THEN GOTO = FI. 


lHB IF F-F1:>:40 THEN GOTO 176 
118 IF Fi-F:4B THEN GOTO 236 


Verifica se seu palpite está muito 
proximo de F. Se está, pula para 290 


120 PRINT "NENHUM EFEITO" para imprimir VOCÊ CONSEGUIU. 
130 NEXT 6 

140 PRINT "VOCE DEMDROU DEMAIS" CERL E polnhe está 
150 PRINT "A FREQUENCIA ERA "'; Re CA 

146 STDP Pula para 230 se o seu palpite está 
176 IF L=2 THEN GOTO 216 Ra comerde E. 

120 PRINT “GRAVE DENAIS.., - CUIDADO! Chega aqui se o seu palpite está 


196 LET L=2 razoavelmente próximo de F e volta 
208 GOTO 136 E outra tentativa. e as tentativas 
218 PRINT "O EDIFICIO DESABOU" oe. 


226 STOP 
230 IF H=2 THEN GOTO 270 Verifica o valor de L. Na primeira vez 
h plizé sl O 
248 PRINT “AGUDO DEMAIS. ..AI” comia asno 
258 LET H=2 advertência, faz L igual a 2 e volta 
268 GOTD 136 para outra tentativa. Na vez seguint 


la di 210 
EXB ARINT CODA CAGELA DOI. DESISTA” || inicima que você perded O 
238 STOP 


29h PRINT “UOCE CONSEGUIU" Verifica o valor de H. Na primeira 


; vez, adverte que a fregiiência est 
308 STOP alta demais; ao ssgunda: informa. 
você perdeu. 
À listagem acima é para o TK-83. Para 
os outros computadores, faça as 
mudanças abaixo. 


eib HONE 
030 LET F=INTCRND(1)=16B+1) 
MSG LET F=INTCRNDCBosiga+ri) 


Problema 


Cada um dos três 
guardas robôs tem uma 
frequência de 
ressonância diferente. 
Você só pode escapar 
depois de destruir os 
três. Mude o programa 
para que ele funcione 
desta forma. 


Como tornar o 
jogo mais difícil 
Mude o 5 na linha 90 
para um número menor. 
Isto significa que você 
terá que chegar 

mais perto de F para 
ganhar. Você também 
pode aumentar a faixa de 
valores possiveis de F 
mudando o 100 da linha 
30 para um número maior. 


ape é alia 


computador 1 e dirá qual a sua posição e vel: 
pirata. Cuidado para não deixar o pirata se afasta 


Como o programa funciona 


so CLS g y Escolhe um número entre -5 e +5 
28 PRINT “AVIAD PIRATA para sua velocidade em relação ao 
Mozy LET V=INTIRNDELI-D)———— pirata e guarda em V. 


Escolhe um número para sua 


MO4D LET S=-INTIANDEZHI) > gistância do pirata e guarda em'S. 


No início o número é negativo e 
portanto você está atrás dele. 


A IF ABS(a)ren THEN GOTO 238 ———————— Verifica se a distância entre vocês é 


04R CLS maior que 20. Em caso afirmativo, 
mo o É pula para 230 para informar que você | 
“BH PRINT “VOCE ESTA "; o perdeu de vista. 


SB IF S<8 THEN PRINT "ATRAS" 
96 IF 5>6 THEN PRINT “A FRENTE” 


: : : 1 deSeV 

108 IF S=8 THEN PRINT "JUNTO! pro gue único é dela 

llf PRINT "SUA VELOCIDADE E ": relação ao pirata. 

ZA IF Vet THEN PRINT "MAIOR" 

138 IF VLhB THEN PRINT "MENCRO Verifica qual a tecla que você está 

14A TF V=A THEN PRINT "IGUAL! apertando. Se é A, aumenta sua 

velocidade de 1. Se é D, diminui sua 

ei5H LET IS=INKEY$ velocidade de 1. Se é Fe se S=0 (isto. 

158 1F 1$="A” THEN LET V=U+1 é, se você Ra E com o | 

176 IF I$="D" THEN LET U=i-1 foro é você aperta É dada dO 


186 IF I$="F> AND S=B THEN GOTD 258 


ii 


FR EO SET 


—Caleula a nov 


-Loop de esperho o 


a —NVolta a 50 epeti 
MO26R FOR I=1 70 ch A 
2ih NEXT 1 Chega aqui se você atirou e java 
228 GOTO SA parelhado com o pirata. Verifica se | 
à velocidade é menor que do 


230 PRINT “UDCE DO PERDEU DE VISTA" oo o sinal). Em caso so o so 

240 GOTA SIA afirmativo, pula para 290. 

258 IF ABS(V)<2 THEN GOTD 296 | o 

268 PRINT "VOCE SO CONSEGUIU" eloetdade RG A 

276 PRINT “ASSUSTA-LO! você disparou. Volta a 40 para 

228 GOTO 40 recomeçar com um novo valor de S. à 
Mo29p IF RND>.7 THEN GOTO 3028 — sorteia para ver se você atirou antes | 

SBB PRINT "VOCE O ABATEU" do pueia 
316 GUTO S36 Imprime uma mensagem adequada, 


320 PRINT "ELE ATIROU PRIMEIRO! de acordo com o resultado do sorteio 
338 STOP da linha 290. 


“À listagem acima é para o TK-83. Para 
os outros computadores, faça as mudanças abaixo. 


019,68 HOME Oito it="" 
el 038 LET V=INTIRND(i)xii-5) Oish IF PEEK(-i6384)>i27 THEN BET Tó 
BM36 LET V=INTIAND(B)xii=5) Mo 2% FOR I=1 TO 208 

O 46 LET S=-INTIRND(1)s3+1) BM 298 IF RND(B)>.7 THEN GOTO 326 


0298 IF RNO(1)>.7 THEN GOTO 326 


EMO LET 5=-INT(RND(6)3+1) 


Como tornar o jogo mais fácil 
Este jogo é bastante difícil. Para 
torná-lo um pouco mais fácil, 
acrescente as linhas abaixo. Assim 
você poderá ver na tela a posição 
relativa dos dois aviões. 

195 IF ABS(5)>18 THEN GOTO 286 

196 PRINT TAB(w/2);"ELE" 

197 PRINT TAR(Stu/2); "VOCÊ" 


Substitua w pela largura da tela. 


Problema 


O sorteio da linha 290 é favorável a 
você. Sabe como mudá-lo para que 
você e o pirata tenham a mesma 

probabilidade de vencer? 


2 


Bombardeiro W 
Supersônico 


Você está sobrevoando os EUR em 
uma missão de bombardeio. O 
computador de bordo mostra um 
gráfico da população de robôs nas 
várias cidades, baseado em 
fotografias tiradas por satélites. Você 
só tem tempo de atacar um alvo em 
cada cinco, de modo que deve 
escolher rapidamente a cidade que 
tem a maior população de robôs e 
lançar sobre ela uma das suas 
bombas de “Corrodapalm”. (Essas 
bombas contêm uma substância tão 
corrosiva que pode dissolver o corpo 
de um robô em questão de segundos.) 
ar uma bomba, aperte a 


herói? 


Eu 
suga 
[a 


“BIABARDEIRO SUPERS SUNTCO pi 


Goi» ” 
MES PME 
RIR e 


DME test iiro 


se SE: 
Co a 


identificados cc 
De B(5). 


sê del Sa nf), ] 77) | normal (G=10 da pri 
LE ' segunda vez, eic.) Com isso, o. 
dn de espera da linha 190 reserva ma 
: E tempo para as primeiras tentativas. 
OD SET SE Coloca a maior po ulação em 1 para 


E mel 


nie! eng Snes us 


ki! começar. 
TERNDEiB+) 
; TER LEI E-i Escolhe 5 números e guard 

B(5). Verifica qual é o maix 


M pura o valor apropriado. 
Imprime os 5 números na tela na. 
forma de filas de asteriscos. 
Verifica se você está apertand. 
tecla; em caso afirmativo, vai pá 
270. 


Se você não aperor ento tecla a | 
tempo, imprime TARDE DEMAIS e 


volta para outra tentativa, 


fia AE EL te] F=6ç3 bee OBS tell? RG So UT 


Es CE O DE ET CusEs CE CE CENTER: DO E: ID E SE O TD E 


E O 
TIA PT II IT TT 


cena TEUS UA Gary TIRO ff TER fes TCA AT! Da 
Jem ) emt 


im 


310/10... 
CEO CE 


E DEMAIS: 
am Verifica se você apertou a tecla certa 
Fe em caso afirmativo, aumenta a 

E — contagem de 1. 


EI G=041 Es 


E E para outra tentativa. 
ACERTOU sBM ERRO | € 
SEFERENCIALS! É a E Imprime a contagem depois de 10 
INT SUOCE E UM MEROS tentativas. 
RINT CPENA,..VUCE PRA ACASO eds 


feto tea Pelttea 7 
ST CDMA COSE IST. rc 


AIRE Ceasa FDP] dd] Pe em 


440 > 


nais PIT 


demos, Ia mi 
= GURI Em — = 


TRE tes mé “EITA CREU TI q IO TR | ESTO SEE TI DS o: tm 


el E TI So DO É 


ma é para o TK-83. Para 
es, faça as mudanças abaixo. 


“Iceberg”' 


Seu navio está muito avariado e a 
munição acabou. Quando está 
voltando lentamente para casa, 
navegando em águas traiçoeiras, 
coalhadas de icebergs. você 
descobre que está sendo seguido 
por um navio inimigo. 
Curiosamente, ele pode detectá-lo, 
mas não aos icebergs; assim, você 
deve fazer tudo para que se 
choque com um deles. 

O computador mostra a posição 
do seu navio (Y), do inimigo (Z) e 
dos icebergs (*). Você pode andar 
um espaço para o norte, sul, leste 
ou oeste de cada vez. O inimigo 
sempre se dirige para você pelo 
caminho mais curto (ele também 
pode se mover em diagonal). Se 
você ficar em uma das 8 posições 
em volta do inimigo, será 
capturado; se bater em um 
iceberg, afundará. 

Conseguirá escapar e voltar 
para casa? 


mesesnaspanasss 


Problema 


Você sabe como aumentar o 
tamanho do mapa? 

Veja se consegue também 
aumentar o número de 
icebergs. 


Os computadores podem 
verificar se uma expressão é 
verdadeira ou falsa. Se é 

falsa. eles dão o valor 0. Se é 
verdadeira, alguns ! 
computadores dão o valor +1, 
outros -1. Por isso, as linhas ] 
290-320 têm que ser mudadas 4 

à nurs 20 em alguns micros. 


enrocrrneesteteeaur 


epa, 


O Muro do Bruxo 


O muro que o Bruxo construiu em volta de seu castelo não é um 
muro comum. E feito de pessoas. paralisadas pelo olhar do Bruxo, e 
além disso pode se mover para a frente e para trás. Se você 
conseguir abrir um buraco nele com o auxílio de sua fiel catapulta, 
capaz de arremessar pedras gigantescas, anulará os poderes 
mágicos do Bruxo e devolverá à vida os prisioneiros. Entretanto, isto 
não é tão fácil como parece; o Bruxo está trabalhando em um feitiço 
capaz de rebater os tiros de volta e às vezes é capaz de fazê-lo 
funcionar... 

Se você fracassar, também passará a fazer parte do muro do 
Bruxo! 


18 CLS 
28 PRINT “MURO DO BRUXO” 
58 PRINT 
48 PRINT "QUER INSTRUCÕOES" 
960 INPUT I& 
é IF I$&(l)="5" THEN GCOSUB 748 
78 PRINT "DIFICULDADE?" 
80 PRINT "Co=FACIL, I=DIFICIL)" 
76 INPUT OQ 
log DIM Wiz, 8) 
118 DIM ES) 
126 FOR Y=1 TO & 
138 FOR X=1 TO 4 
Mois0 LET Wix,v)=26 
158 NEXT X 
158 NEXT Y 
i7g LET Z=6 
1ºg FOR C=1 TO 3 
Molyuú LET D=INT(RND=S0+21) 
“gd GUOSUB 430 
2ig IF Z=1 THEN GOTO 1158 
:2b PRINT "VOCE ESTA À ";D;" METROS DE DISTANCIA" 
238 LET W=INTECRND=41)-26 
246 IF W=0 THEN PRINT "SEM VENTO” 
:56 IF Wild THEN PRINT "VENTO PARA À DIREITA" 
268 IF W>B THEN PRINT "VENTO PARÁ À ESQUERDA" 
2:70 PRINT “DIGA À ELEVACAO ci-se)" 
cet INPUT À 
226 PRINT “DIGA À VELOCIDADE" 


INPUT U 

LET A=A/1S0*3.14l16 

LET H=TANCA)SCD-W)-CORiD-WU)s=D)/(ULCOS(Ã)) sea 
LET H=INTCH/0) 

IF H>t AND Hiy THEN GOSUE 540 

IF Hai THEN PRINT “TIRO CAIU ANTES" 
IF Hx8 THEN FRINT “TIRO CAIU DEPOIS" 
IF RND:>.2 THEN GOTO 208 

PRINT. "O-MURO SE MEXEU. o" 

NEXT E 

PRINT "UOCE FOI TRANSFORMADO" 

PRINT "EM PEDRA" 


STOP. , SUBSTITUA ** NA LINHA 32 
FOR 1=1 TO 30 POR * PARA D APPLE E 
NEXT 1 POR 4 PARA O TR5-26 E 
CLS PARA O TK-85 

PRINT 

FOR Y=8 TO 1 STEP -1 

FOR X=1 TO 8 

PRINT CHR$ECUCXA VD): 

NEXT X 

PRINT 

NEXT Y 

RETURN 

GOSUB 458 

LET W<ECH)-1,H)=6 

IF VsCUS(A):50 THEN LET W(E(H)-2,H)=A 
IF RND:>.5 AND Huzl THEN LET WCE(1),1)=29 
IF RND>.5 AND HzS AND H:S THEN LET 
WCECH+1)-1,H+1)=0 

IF H:1 THEN GOTO 636 

FOR Y=2 TO 8 

IF RND£.5 THEN LET WÍE(Y)-1,Y)=0 

NEXT Y 

GOSUB 450 

RETURN 

FOR Y=1 TO & 

LET X=1 

IF WiX,Y)=0 OR X=S THEN GOTO 786 

LET X=X+1 

GOTO 470 

LET E(Yy)=X 

IF X=1 THEN LET Z=1 


O Muro do Bruxo (continuação) 


720 NEXT Y 

738 RETURN 

748 PRINT "VOCE ESTA ATACANDO O" 

758 PRINT "ULTIMO REDUTO DE UM" 

768 PRINT "BRUXO FAMOSO. QUE" 

7728 PRINT "ESTA ESCONDIDO ATRAS" 

789 PRINT "DE UM MURO DE PEDRA." 

7980 PRINT "CADA PEDRA E UMA" 

S00 PRINT “"VITIMA DO BRUXO." 

810 PRINT "SO VOCE PODE ATACAR" 

828 PRINT "E LIBERTA-LOS" 

&30 PRINT "DA MAGIA DO BRUXO." 

840 PRINT "VOCE DEVE DESTRUIR A" 

856 PRINT "PAREDE USANDO CATAPULTAS." 

860 PRINT "MAS CUIDADO, O BRUXO" 

870 PRINT "PODE MOVER O. MURO" 

888 PRINT “PARA À FRENTE E PARÁ" 

898 GOSUB 1116 

968 PRINT "TRAS. E UMA VEZ OU OUTRA" 

718 PRINT "REBATER SEUS TIROS" 

?720 PRINT "DE VOLTA." 

2380 PRINT "DEPOIS DE CADA TIRO. VOCE" 

240 PRINT "VE UMA PLANTA DO MURO" 

938 PRINT "MOSTRANDO OS DANOS" 

2680 PRINT "QUE JA CONSEGUIU" 

270 PRINT "CAUSAR." 

988 PRINT "REPARE QUE HA CERTAS" 

998 PRINT "PEDRAS QUE PRODUZEM" 

1008 PRINT "MAIS DANOS, E TAMBEM QUE." 

1610 PRINT "QUANTO MAIS DEPRESSA O" 

1920 PRINT "PROJETIL ESTIVER SE" 

18380 PRINT "MOVENDO HORIZONTALMENTE, 

1940 PRINT "MÁIS DANOS VAI CAUSAR." 

laje GOSUB 1116 

1866 PRINT "VOCE SERA CAPAZ DE” 

18780 PRINT "DERROTAR O BRUXO À TEMPO" 

lg88 PRINT “DE SALVAR OS MILHARES" 
PRINT "DE PRISIONEIROS?" 


DS ia 


1180 RETURN 

1110 PRINT "APERTE UMA TECLA '"'; 
061128 IF INKEY$='"" THEN GOTO 1120 
eiiso cLs 

1148 RETURN 

1158 PRINT "VOCE CONSEGUIU ABRIR" 

1160 PRINT "UM BURACO NO MURO" 

11780 PRINT "DO BRUXO. VOCE" 

1188 PRINT "LIBERTOU TODAS" 

1198 PRINT "AS VITIMAS." 

1288 STOP 


À listagem acima é para o TK-83. 
Para os outros computadores, faça 
as mudanças abaixo. 


todos os RND para RND(B) 
etodos os RND para RND(1) 


ei8.,450,1130 HOME 
Me Sb IF LEFT$CI$,.1)="5" THEN GOSUB 740 
Mo 140 LET W(X,Y)=29 
Ho 436 FOR I=i TO 208 
MO 490 PRINT CHR$C(WCX.Y)+32)5 
ei1i26 GET Is 


Como tornar o jogo mais difícil 


Você pode aumentar a espessura do muro mudando as seguintes 
linhas: 

Linha 100: troque o primeiro númerc por um número maior, 10, 
por exemplo. 

Linha 130: subtraia 4 do número que usou na linha 100 e coloque 
o resultado no final da linha 130. 

Linha 480: troque o último número para o mesmo número que 
usou na linha 100. 
Se você tornar o muro muito mais grosso, precisará de mais tempo 
para perfurá-lo. Assim, é melhor trocar o último número da linha 
180 por um número maior. 


Missil! Como jogar Míssil! 


Este jogo é diferente dos Você dispõe de três bases, cada 
anteriores, pois utiliza instruções uma capaz de lançar um míssil. 
gráficas. Como essas instruções Ão ver um avião se aproximando, 
variam muito de micro para você deve estimar a sua altitude e 
micro, apresentamos uma velocidade e lançar os mísseis 
listagem separada para cada contra ele. 

modelo. Leia a descrição do jogo Para lançar um míssil, basta 


nesta página e procure nas apertar uma tecla qualquer. 
páginas seguintés a versão Primeiro é lançado o míssil da 
apropriada ao seu computador. esquerda, depois o do centro e 
depois o da direita. 
Veja quantos aviões inimigos 
você consegue derrubar. 


sm, re o e a TS CT TS O e a O CR Rc CS A RS SS CS Sr e e e 
pe 
q 
S 


18 CLS 426 RETURN 

20 DIM YC3),FC3) “06 FOR J=i TO 3 

30 N=1 410 SET (J=32,47) 
40 PS=INT(RND(B)*3+1) 428 SET: (Js32+1,47) 
30 P=INTCRND(B)*36+5) 434 NEXT 

éóa GUSUB 408 448 RETURN: 

780 FOR I=PS TO 100 STEP PS 

sã GOSUB 300 

90 FE=INKEYS 


IF Féê="" OR N:3 THEN 130 E 
118 F(N)=1 
126 N=N+i o 


130 FOR J=1 TO 3 

148 RESET(32H],46-Y(J)) 

150 IF F(J)=0 OR Y(J):45 THEN 190 

168 YCD=Y(D4+1 

170 IF POINT(32%).46-Y(J)) THEN 230 
180 SET (32%J).46-Y(J)) 

198 NEXT 

200 NEXT 

218 PRINT 20, "ERROU" 
220 END 

236 PRINT RO,"IMPACTO!!!! 

240 END | 
300 RESET (I-PS.P) : RESET (I-PS+1,P) 
310 SET (Í.P) : SET (I+1,P) 


d 

E] 

E 
| 


Missil!: Versão Apple 


18 
3a 
40 
ef 
60 
26 
sa 
sã 

199 
118 
128 
139 
148 
158 
168 
178 
188 
198 
200 
210 
220 
230 
240 
256 
260 
276 
220 
300 
310 
2a 
330 
340 
350 
360 
378 
400 
418 
420 
430 


HOME 
HGR 
HCOLOR=3 
DIM YCZ).F(3) 
N=i = nS=5 
PS=INT(RND(I)26+4) 5 
P=INT(CRNDiL)=135+11) 
GOSUB 4 
FOR I=PS TO 265 STEP PS 
X=I-P5S 1 Y=159-P : C=0 : GOSUB 306 
X=1 : C=3 : GOSUB 306 
a 


o 


Fê="" F PEEKi-15304)2127 THEN GET F& 
IF F$ê="" OR Nº>3 THEM 160 

F(N)=1 

N=N+1. 


FOR J=i TO & 

C=6 : GOSUB 356 

IF FCl)j=6 OR yéJdoriss THEN 23A 
Yedi=Y(J))+mMs 

C=3 : GOSUB 350 

X=Jz280-1 1 Y=P-Yid) 

IF X:-1 AND X<is AND Y>-9 “AND Y«E THEN 274 


NEXT e 


UTAB 22 : PRINT “ERROU” 

END 

VTAB 22 : PRINT "IMPACTO!!!" 

END .“ 
HCOLOR=C 


HPLOT X.Y TO X.Y- 
HPLOT TO Xt3,4-2 : HPLOT TO X+i2,Y-2 
HPLOT TO X+14,Y : HPLOT TO X.Y 
RETURN o 

HCOLOR=C 

HPLOT 20=4,158-Y(J) TO 208), 134-Y(J) 
RETURN 

FOR J=i TO 3 E 

HPLOT 70=J-5,.159 TO 70=J+3.,1597 

NEXT : 

RETURN 


Miíssil!: Versão TK-85 44 FOR l=i TO 3 
4726 PRINT AT 21.9+J;"CAÁBI! 


CLS A NE) 
e 488 NEXT d 
INVERSE 8 496 RETURN 
sa Eos sHB DATA 0,0,0,0,255,2 
Fis 122.63 
E Re S10 DATA 0,252,250,252 
GUS 054 don 
LET PS=INTC(RNDE6+5) a 


LET F=INTIRND=140+208) 
GOSUB sn 
FOR 1=PS TO 246 STEE PS 


LEZZC=1 : LET X=I-PS 
116 GOSUB J04 
128 LET C=D à LET X=1 
14H GUSUE 306 
148 LET Fé=INKEY$ 
158 IF F$="" OR N>5 THEN GOTO 176 
160 LET FC(N)=1 | LET N=N+1 
170 FOR J=1 TO 3 
lêa LET C=1 : GOSUB 356 
190 IF FCl)=0 OR YCl=>145 THEN GOTO 240 
“80 LET YC)=7(])+MS 
ig LET C=B : GOSUB 350 
220 LES Ã=Jso4-1 é: LEI NeRENção 
:3y4 IF X>-1 AND X<l2Z AND Yailg AND Y:-5 THEN GOTO 
24 NEXT J 
2590 NEXT 1 
cód PRINT ÀT O, &; “ERROU” 
org STUR 
286 PRINT AT. 6,6:"IMPACTO! O! 
298-5TOP 
500 INVERSE LU 
SIM PROL XP : 
S:g DRAW 0,8 : DRAW 3.,.-6 
338 DRAW 32.80 : DRAW 2.-2 
40 DRAW -13.6 : RETURN 
358 INVERSE LC 
5686 PLOT 42 l+r4,Y(d)+á 
378 DRAW B,ó : DRAW -2,-2 
88 DRAW 2.4 : DRAW 2.-2 
3928 RETURN 
468 FOR A=65 TO gá 
418 FOR B=g TO 7 
4280 READ C 
446 POKE USR CHR$ECAD+B.C 
440 NEXT B 
4596 NEXT À 


28 
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Missil!: Versão TK-83 

18 CLS 

cy DIM TC3) 

38 DIM Fi3) 

48 LET N=1 

SA LET P=INTIRND=19+2)=: 
6 FOR I=i TO 48 

76 PLOT I.P 

88 PLOT I+i.P 

98 UNPLOT I-i.P 

ilgô LET BS=INKEYS 

liQ IF Bég="" OR N=3 THEN GOTO 140 
126 LET F(N)=1 

130 LET N=N+1 


148 FOR J=i TO 3 

154 IF F(J)=0 THEN GOTO 196 

168 UNPLOT J=l6.YCJ) 

126 IF Yí<J)=42 THEN GOTO 216 

190 LET Tod)=1C))aa 

LOU PLOT o d=sé. Te) 

200 IF P=Y(J) AND (Jsi6=1 OR Jeló=I+1) 
THEN GOTO 260 

210 NEXT) 

“og NEXT 1 

aaRd sei 

“440 PRINT ERROU 

E SUS TOR 

2éy CLS 

2760 PRINT "IMPACTO! 

STOP 


do normais 


34 


Algumas sugestões 


Aqui estão algumas idéias que 
você poderá usar nos programas 
deste livro ou em seus próprios 
programas. 

Ão incluir novas instruções em 
um programa já pronto, você tem 
duas opções: utilizar apenas 
linhas vagas ou numerar de novo 
todo o programa. No segundo 
caso, não se esqueça de mudar 
todas as instruções GOTO e 
GOSUB. 


Faça o computador 
explicar como se joga 


Você pode fazer com que o computador 


imprima instruções sobre o jogo. Para 
isso, basta acrescentar algumas linhas 


exemplo abaixo, e colocar 
uma sub-rotina no final. 


ta PRINT CROME CU JOGO" 
li PRINT "VOCE QUER SABER” 
2 PRINT "COMO JOGAR" 
lu INPUT Tó 
TRLZ AF D6Ci)="5" THEN GOSUR iGHE 
RO) ir krisiit,is="5" intao GOSUD idda 


O programa principal entra aqui 


1o6A PRINI CUOCE TER DUE FAZERO 
têto PRINT O SEGUINTE É cce. 
1995 RETURN 


Você pode usar quantas linhas quiser 
para as instruções. Não se esqueça de 
colocar um número e a palavra PRINT 
no início de cada linha. O número de 
caracteres entre aspas deve ser menor 
ou igual ao número de caracteres que o 
seu computador pode imprimir em uma 
linha. Não se esqueça também de 
colocar uma linha RETURN no final da 


sub-rotina. 


Faça o computador 
parar e esperar 
por você 


Se houver muitas linhas de instruções, 
talvez você precise incluir a sub-rotina 
abaixo, que faz com que o computador 
pare de executar o programa até você 
apertar uma tecla. Assim, evitará que 
as instruções desapareçam na parte 
superior da tela antes que tenha tempo 
de lê-las. Coloque uma linha GOSUB 
no ponto em que deseja que o 
programa pare e acrescente no final a 
seguinte sub-rotina: 


ide PRIN) “APERTE UNA TECLA" 
LHLB PRINT "PARA CONTINUAR! 
BB Tkigzo Jr inkEto="O THEN GUTO 1028 
Oikio LI is 
iêga PRINT 
1646 RETURN 


Faça o computador 
“conversar” com você 


Você pode programar o computador 
para fazer perguntas e agir de acordo 
com as suas respostas. Aqui está, por 
exemplo, um pequeno programa que 
faz com que o computador se recuse a 
jogar, a menos que seu nome comece 
com a letra J: 
À PRINT "COMO VOCÊ SE CHAMAS! 
2 INPUT dó 
RS dE ISCLIC GREN GOTO iH6R 
MOS IS LEFiSCIS,iicosso THEN GUTO 1206 
4 PRINT Ok... VOLE PODE JOGAR" 
5 PRINT "ESTÁ PRONTO?" 
é INPUT db 
Teo AP dE tides" SP THEN GOTO 5 
MO, GF cFIs is ic" THEM GOTES 
O programa principal entra aqui 
16RH PRINT DESCULPE.ESTE JOGO E“ 
ióle PRINT “SO PARÁ PESSOAS" 
1626 PRINTOCCUJOS NOMES COMECAR" 
jálo PRINT COR A LETRA de 


Aqui está um programa em que o 
computador desconfia de que você não 
tem coragem suficiente para jogar. 


16 PRINT “JOGO MUITO PERIGOSO" 
12 PRINT "VOCE TEA CORAGEM” 
14 PRINT "DE ENFRENTAR" 
15 PRINT “O RONSTRO CABELUDO?" 
ló INPUT 16 
TRI7 IF T4(1)="5” THEN GOTO 28 
MOi/ IF LEFTS(IS,1)="5" THEN GOTO 26 
18 PRINT "COVARDE" 
19 STOP 


Você pode combinar o programa acima 
com a sub-rotina de instruções, 
colocando as linhas 11 a 17 do 
programa da página anterior como 
linhas 20 a 26 do programa acima. 
Comece o programa principal na linha 
30 e acrescente a sub-rotina de 
instruções no final. 


Quer jogar de novo? 


Em lugar de escrever RUN cada vez 
que deseja começar um jogo, você 
pode fazer com que o computador 
pergunte se quer jogar de novo. 
Coloque as linhas abaixo no final do 
programa, antes do último STOP. 
loBh PRINT QUER JOGAR DE ROVD o" 
lóld INPUI I$ 
Trihi6 JF dtili="S" THEN RUK 
102h IF LEFISCIS,1)="5" THEN Ala 
1638 PRINT "Ok... iChHAU" 
Mude os números das 
linhas de acordo 
com o seu programa. 


Efeitos sonoros 


Muitos microcomputadores dispõem de 
recursos para gerar sons. Você pode 
utilizar esses recursos em qualquer 
ponto dos seus programas. 
Experimente, por exemplo, simular o 
ruído de uma explosão ou fazer com 
que o computador toque uma 
musiquinha toda vez: que alguém 
ganhar. Como as instruções para gerar 
sons variam de computador para 
computador, você terá que consultar o 


manual do seu micro. Em certos casos, 
você pode acrescentar uma única linha 
ao programa no local onde deseja o 
som. Em outros, vai precisar de várias 
linhas; nesse caso, é melhor usar uma 
sub-rotina. 

A linha abaixo mostra, por exemplo, 
a instrução para produzir o som do dó 
central do piano durante 6 segundos em 
um computador do tipo TRS-80: 


SOUND 89,186 


Você pode usar quantas instruções 
quiser para gerar sons, mas não se 
esqueça de colocar um número no 
início de cada instrução. 


Nota especial para os + 
usuários do TK-85 fia 
Se o seu micro é um TK-85, talvez 
alguns dos jogos deste livro sejam 
rápidos demais para o seu 
computador. Às instruções para 
diminuir a velocidade aparecem na 
mesma página que o jogo 
correspondente. Como regra geral, 
quanto maior o número que você 
usar no loop de espera, mais lento 
será o jogo. 
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Como programar jogos 


Depois que você estiver 
familiarizado com os jogos deste 
livro, certamente terá vontade de 
programar outros jogos. Nestas 
duas páginas, discutimos alguns 
conceitos básicos de que vai 
necessitar para isso. 


Antes de mais nada, vale a pena 
pensar um pouco no que o seu 
computador pode fazer e no que ele 


*Pode escolher um número ao acaso, 
usando RND. 


*Não pode fazer nada que não esteja no 
programa. 


*Pode tomar decisões comparando de 
várias formas informações anteriores. 


*Se você usar instruções válidas de 
BASIC, não pode distinguir instruções 
“sensatas” de instruções tolas. 


Quando estiver planejando o 


*Pode mostrar os resultados dos programa de um jogo, não inclua nada 
cálculos e decisões e também o que que o seu micro não seja capaz de 
está guardado na memória. fazer. 


Como planejar um jogo 


Antes de programar o computador para 
jogar um jogo, você precisa saber 
exatamente como será jogado e quais 
serão as regras. Como o computador 
vai necessitar de uma série de 
instruções simples e lógicas, é melhor 
imaginar primeiro todo o jogo e depois 
dividi-lo em pequenas partes. 

Em seguida, você deve escrever todas 
as partes do jogo, na ordem em que 
serão executadas (escreva em 
português; ainda não está na hora de 
usar BASIC). 

A ilustração abaixo mostra o plano de 
um jogo simples de atirar, que pode ser 
usado para disparar balas de canhão 
contra um navio pirata ou raios laser 
contra uma nave alienígena. 


PLANO DE 
1) IMPRIMIR TÍTULO 
E INSTRUÇÕES 
2) ESCOLHER 
UM ALVO 
3) COMEÇAR UM LOOP 


QUE PERMITA AO 
JOGADOR N TENTATIVAS 


4) PEDIR AO JOGADOR 
PARA DAR UM TIRO 


5) VERIFICAR SE O 
TIRO ACERTOU 


6) IMPRIMIR UMA 
MENSAGEM SOBRE O 
RESULTADO DO TIRO 


7) VOLTAR PARA 
A TENTATIVA 


SEGUINTE 


Como escrever o programa 


O passo seguinte consiste em traduzir o 
seu plano para a linguagem BASIC. 
Cada parte do plano pode corresponder 
a várias linhas de BASIC. Deixe 
números vagos entre os números das 
linhas do programa, para poder 
acrescentar mais tarde novas instruções, 
se for necessário. 

Escreva um rascunho do programa e 
comece a testá-lo no computador. O 
computador é capaz de detectar muitos 
erros de programação e mesmo, em 
certos casos, de indicar exatamente 
onde está o errc. Se o seu programa 
não der certo logo da primeira vez, não 
desanime; “acertar” um programa é um 
processo lento e tedioso, até mesmo 
para os programadores experientes. 


Depois que o programa básico estiver 
funcionando, você pode aperfeiçoá-lo, 
acrescentando mensagens, comentários, 
alvos diferentes etc. Também pode 
incluir partes dos programas deste livro 
nos seus jogos. 

Não espere que os seus primeiros 
jogos sejam muito movimentados e 
originais. Comece com idéias simples e 
esteja preparado para modificá-las se 
for necessário. É provável que você 
descubra que incluiu alguma coisa no 
jogo que é muito fácil para uma pessoa 
mas muito difícil para um computador. 
Quando adquirir experiência, saberá 
instintivamente o que o seu computador 
é capaz de fazer. 37 
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Instruções de BASIC 


Este capítulo explica como funcionam algumas instruções comuns de 
BASIC. Quase todas foram usadas nos programas deste livro, de modo 
que você pode consultar as listagens dos jogos para ver o que essas 
instruções fazem nos programas. Nem todas as instruções podem ser 
usadas em todos os micros mencionados neste livro. À tabela de 
equivalência da página 44 mostra as diferenças entre os vários 


modelos. 


LET diz ao computador para dar um nome a uma 
parte da memória e guardar nesta parte um número 
que você especifica. Assim, por exemplo, LET 

A =6 significa que o computador deve chamar de 
“A” uma parte da memória e guardar nesta parte o 
número 6. “A” é chamado de “variável” e colocar 
alguma coisa em À é chamado de “atribuir um 
valor a uma variável”. 

Alguns nomes de variáveis são seguidos por um 
cifrão (A$, por exemplo). Isto significa que a 
variável é do tipo string e a memória 
correspondente pode conter um número qualquer 
de caracteres (letras, números e símbolos). 


PRINT diz ao computador para mostrar alguma 
coisa na tela. Esta instrução pode ser usada de 
várias formas: 

Uma mensagem entre aspas precedida por PRINT 
é mostrada na tela exatamente como foi escrita. A 
parte entre aspas não precisa ser em BASIC, pode 
ser qualquer coisa. 

À instrução PRINT seguida pelo nome de uma 
variável (PRINT À ou PRINT A$, por exemplo) diz 
ao computador para mostrar na tela o valor da 
variável. 

PRINT também pode ser usada para fazer 
cálculos e mostrar o resultado. Assim, por exemplo, 
a instrução PRINT 6+4 faz o computador mostrar na 
tela o número 24. 

Você pode usar PRINT sozinha para deixar uma 
linha em branco na tela. 


RND diz ao computador para escolher um número 
ao acaso. Computadores diferentes usam diferentes 
formas de RND (essas diferentes formas estão na 
tabela da pág. 44). Nos computadores TK, RND 
gera um número entre O e 0,99999999. Você pode 
mudar os limites dos números gerados por RND 
multiplicando-os por uma constante e somando-os a 
outra constante. Assim, por exemplo, RND+20 gera 
um número entre O e 19,99999999, enquanto que 
RND+20 + 1 gera um número entre 1 e 
20,99999999. 

Para gerar apenas números inteiros, use a 
instrução INT. 

Para gerar letras e símbolos, use a instrução 


CHRS. 


INT é a abreviação de inteiro. No caso de números 
positivos, diz ao computador para ignorar tudo que 
está à direita do ponto decimal. Assim, por 
exemplo, INT (20.999) é o número 20. No caso de 
números negativos, tudo que está à direita do ponto 
é ignorado e o número que está à esquerda é 
“aumentado” de uma unidade. Assim, por exemplo, 
INT(-3.6) é o número -4. 

A instrução INT é freqientemente usada junto 
com RND, como em INT(RND+20+1), que diz ao 
computador para escolher ao acaso um número 
inteiro entre 1 e 20. 


CHR$ é usada para transformar números em letras. 
Com exceção do TK-83, todos os computadores 
mencionados neste livro utilizam o código ASCII* 
para a correspondência entre números e caracteres. 
Assim, por exemplo, o número de código para a 
letra À é 65 e a instrução CHR$(65) faz a letra A 
aparecer na tela. 

Você pode usar as instruções CHR$, INT e RND 
para fazer o computador escolher letras ao acaso, 
como em CHR$(INT(RND+26 + 65)), que no 
computador TK-85 gera uma letra qualquer entre À 
e Z (para os outros computadores, consulte a tabela 
da página 44). 


FOR é usada para começar um loop que faz o 
computador repetir uma parte do programa um 
certo número de vezes. Deve ser seguida pelo 
nome de uma variável (G, por exemplo) e pelos 
valores inicial e final da mesma variável (= 1 TO 
10, por exemplo). 

O final do loop é indicado pela instrução NEXT 
(NEXT G, neste exemplo), que faz o valor da 
variável aumentar de uma unidade e manda o 
computador de volta para a instrução FOR. 
Quando o valor da variável chega ao valor final, o 
computador ignora a instrução NEXT e passa para 
a linha seguinte. Para cada instrução FOR deve 
haver uma instrução NEXT, caso contrário o 
programa não funcionará. 


INPUT diz ao computador para dar um nome a uma 


variável, mostrar na tela um ponto de interrogação 
e esperar que você escreva o valor da variável. À 
execução do programa só prossegue se você 
apertar a tecla RETURN, ENTER ou NEWLINE. 

Você pode usar variáveis numéricas (sem o 
cifrão) ou variáveis tipo string (com um cifrão rio 
final) em uma instrução INPUT, mas se usar uma 
variável numérica o computador não aceitará 
letras. 


*O código completo está na pág. 43. 
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INKEY$ diz ao computador para verificar se você 
está apertando alguma tecla e, em caso afirmativo, 
qual é essa tecla. O computador não espera você 
apertar alguma tecla, como no caso da instrução 


NEL À INPUT. A instrução INKEY$ é geralmente usada 


+ 
h y 


dentro de um loop que faz o computador verificar 
muitas vezes o teclado. Isto é necessário porque os 
computadores funcionam muito depressa e você 
não teria tempo de apertar uma tecla no tempo que 
o computador leva para fazer uma única 
verificação. 

Quando o loop termina sem que você tenha 
apertado nenhuma tecla, o computador prossegue 
com uma string que não contém nenhum simbolo 
(a chamada string vazia). 


GOTO faz o computador pular para uma instrução 
mais acima ou mais abaixo, ignorando as instruções 
intermediárias. GOTO deve sempre ser seguida 
pelo número da linha para onde o computador 
deve pular. 


GOSUB diz ao computador para sair do programa 
principal e ir para uma sub-rotina. GOSUB deve 
ser seguida pelo número da primeira linha da sub- 
rotina. À última instrução de qualquer sub-rotina 
deve ser RETURN, que manda o computador de 
volta ao programa principal, para a linha seguinte 
à da instrução GOSUB. 


IF...THEN diz ao computador para verificar se uma 
expressão é verdadeira ou falsa e fazer coisas 
diferentes, dependendo da resposta. É usada com 
os seguintes sinais, além das palavras AND e OR: 


= igual a 

< menor que 

> maior que 
<— menor ou igual a 
>= maior ou igual a 
< >diferente de 


Se o computador verifica que a expressão é 
verdadeira, executa a instrução que se segue à 
palavra THEN. Se a expressão é falsa, ignora o 
resto da linha e passa para a linha seguinte. 


CLS é usada para apagar tudo que está na tela, 
sem afetar o que se encontra na memória do 
computador. E útil para limpar a tela antes de 
executar um programa ou para manter uma 
mensagem na tela apenas por um período limitado 
de tempo durante um jogo. 


HOME é usada para limpar a tela nos 
computadores do tipo Apple, em lugar de CLS. 


ABS diz ao computador para ignorar os sinais de 
mais e de menos na frente dos números e tomar o 
seu valor “absoluto”. Assim, por exemplo, ABS(-10) 
é 10 e ABS (+10) também é 10. 


VAL é usada para obter o valor numérico de um 
número associado a uma variável string. Em outras 
palavras, a instrução VAL diz ao computador para 
ignorar o cifrão e considerar a variável como se 
fosse uma variável numérica. Assim, por exemplo, 


se I$="60", então VAL(I$) é o número 60. 


ASC é usada para obter o número do código ASCII 
correspondente a um dado número, letra ou 
simbolo. Assim, por exemplo, ASC ("3") é igual a 
51. À expressão entre parênteses deve ser do tipo 
string, como “20” ou A$. 

Os micros da família Sinclair não têm a instrução 


ASC, embora o TK-85 use o código ASCII. 


CODE é a instrução usada nos micros da familia 
Sinclair em lugar de ASC. Como no caso da 
instrução ASC, CODE deve ser sempre seguida por 
uma expressão do tipo string, entre parênteses. 
Observe que os números de código dos caracteres 
no micro TK-83 não são os mesmos que nos outros 
computadores. 


TAB é uma instrução usada para mover o cursor na 
tela até a coluna desejada. Geralmente é usada em 
conjunto com PRINT para mostrar alguma coisa no 
meio da tela. O número de espaços de 
deslocamento do cursor é colocado entre 
parênteses depois de TAB. O número máximo que 
pode ser usado depende do modelo de computador 
(vide tabela na pág. 43). 41 
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SGN diz ao computador para verificar o sinal de 
um número. O resultado é -1 se o número é 
negativo, O se o número é zero e +1 se o número é 
positivo. Assim, por exemplo, SGN (-30) é -1, 
SGN(7) é +1 e SGN(0) é 0. 


DIM diz ao computador para reservar espaço na 
memória para uma matriz (variável indexada). 
Assim, por exemplo, DIM X(6) diz ao computador para 
reservar um espaço suficientemente grande para 
conter 6 elementos, que serão chamados de X(1), 
X(2), X(3), etc. DIM A(8,8) reserva um espaço na 
memória para 64 elementos, que serão chamados 
de A(1,1), A(1,2), etc. Uma variável indexada 
nunca pode ser usada em um programa com um 
número entre parênteses maior que o especificado 
na instrução DIM. 


SQR é usada para obter a raiz quadrada de um 
número. Assim, por exemplo, SQR(16) é igual a 4. 


SIN é usada para calcular o seno de um ângulo. 
Em um triângulo retângulo, o comprimento do lado 
oposto a um ângulo dividido pelo comprimento da 
hipotenusa (lado oposto ao ângulo reto) é chamado 
de seno desse ângulo. Para usar SIN em um 
programa, o ângulo deve ser expresso em radianos, 
e não em graus. 


ATN é uma das funções trigonométricas que os 
computadores são capazes de calcular (a outra é o 
seno, de que falamos acima). ATN é a abreviação 
de arco tangente. Em alguns computadores, esta 
instrução é chamada de ARCTAN. 


STOP diz ao computador para parar de executar o 
programa. Em todos os computadores, a não ser o 
TK-83, a instrução END faz o mesmo efeito. 


PEEK é usada para descobrir o que existe em uma 
certa região da memória do computador. Esta 
instrução é sempre seguida por um número entre 
parênteses, que especifica um “endereço” na 
memória. 


POKE é uma forma especial de guardar 
informações na memória do computador, usando o 
“endereço” de uma memória. 


Código ASCII Código TK-83 
Caractere Número |Caractere Número | Caractere Número | Caractere 
correspondente] de código |correspondente de código | correspondente | de código | correspondente 
o o : E E 

| 

a 


Número 
de código 


64 


e 


Número máximo de Número máximo de 
caracteres na horizontal caracteres na vertical 
(ou número de colunas) (ou número de linhas) 


Tabela de equivalência 


Esta tabela mostra algumas das variações nas instruções de BASIC usadas pelos micros mencionados neste livro. 
Não foram incluídas as instruções para gerar gráficos, sons e cores, pois variam de fabricante para fabricante. 
Observe também que embora quase todos os micros usem as instruções PEEK e POKE, os endereços da 
memória variam de acordo com o fabricante, de modo que os números usados com essas instruções variam 


de computador para computador. 
a meo | mas | rea 


Escolha um 
RND(1) 
RND(N) 
CHR$(INT(RND=+26 +65)) | CHR$(INT(RND+26 + 38)) 


número ao acaso 
CHR$(INT(RND(1)+26 + 65)) CHRS$(RND(26) + 64) 


entre O e 0,99999999 


Escolha um 
X$ - mer 
IF PEEK(-16384) INKEY$ INKEY$ INKEY$ 
>127 THEN GET X$ 


número ao 
acaso entre le N 
ASC("X") ASC("X") CODE (“X”) CODE ("X"”) 
(código ASCII) (código ASCII) (código ASCII) (código TK-83) 


CALL - 993 


PRINT CHR$(10) 
PRINT CHR$(8) 


RND(1)*«N+1 


Escolha uma letra 
ao acaso entre À e Z 


Verifique a 
tecla que está 
sendo apertada 


Transforme 
caracteres em números 
de código 


PRINT CHR$(27) PRINT CHR$(11) PRINT CHR$(112) 
PRINT CHR$(26) PRINT CHR$(10) PRINT CHR$(113) 


PRINT CHR$(24) PRINT CHR$(8) PRINT CHR$(114) 


o PRINTCHRSG) | PRINT CHR$(115) 


Mova o cursor para cima 


Mova o cursor para baixo 


Mova o cursor 
para a esquerda 


Mova o cursor 
para a direita 


PRINT CHR$(21) 


LEFT$(A$,N) 


RIGHT$(A$,N) 


PRINT CHR$(25) 


Separe os primeiros N 


caracteres de uma string LEFT$(A$,N) 


Separe os últimos N 
caracteres de uma string 


Separe N caracteres 
do meio de uma string 


MIDS(A$,N1,N2) 
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Respostas 


Pode ser que as suas respostas 
para alguns problemas sejam 
diferentes das que aparecem aqui. 
Isto não importa, contanto que 
funcionem no seu computador. 
Entretanto, verifique se são tão 
simples e concisas como as 
respostas do livro. 


Página 5 
Bomba-Relógio 


A linha 90 diz ao computador quantas 
vezes deve repetir o loop e pedir um 
palpite. Assim, para aumentar o número 
de tentativas, troque o último número 
da linha 90 por um número maior. Para 
diminuir o número de teniativas, use 
um número menor. 


Página 7 
Mensagem Decisiva 


Neste programa, as linhas 150 e 160 
constituem um loop de espera. Elas 
fazem o computador ficar “parado” um 
certo tempo antes de passar para a 
instrução seguinte, que é limpar a tela. 
Para fazer com que a mensagem tique 
mais tempo na tela, você precisa 
aumentar o número de vezes que o loop 
é repetido. Para isso, basta trocar o 
último número da linha 150 por um 
número maior. 


Página 9 
Duelo 


Para que o computador possa também 
errar o tiro, acrescente as linhas 
abaixo, além das que aparecem em 
“Como tornar o jogo mais dificil”. 


155 IF RND<.i THEN GOTO 258 
258 PRINT “ELE ATIRDU, HAS ERROU 
268 GOTO 98 


A linha 155 pode :er RND(1) ou 
RND(0), dependendo do seu 


computador. 


Página 11 
Batalha no Deserto 


Para incluir a possibilidade de os robôs 
atirarem em você, acrescente as linhas 
abaixo. 


173 IF RNDx.05 THEN GOTO 256 
298 PRINT "ELES VIRAM VOCÊ... AMANHHHH! 
268 STOP 


Use a forma de RND na linha 175 que 
seja compativel com o seu computador. 
Você pode substituir .05 por qualquer 
numero entre O e 0.999, mas não se 
esqueça de que quanto maior for o 
numero, maior a probabilidade de os 
robôs atirarem em você. 


Página 13 
O Castelo do Traidor 


Este é um problema muito dificil; não 
se aborreça se não tiver conseguido 
resolvê-lo sozinho. De qualquer forma, 
vale a pena experimentar a solução no 
programa. Acrescente as linhas abaixo 
para fazer com que apareçam dois tipos 
de alvos. 


95 LET P=INT(RNDe.5)x4+1 
97 LET Pó=CHAS(P+SL) 


AMO S/ LET PS=CHAS(P+78) 


78 IF L=T THEN LET A$=R$+P$ 
188 LET G=5+P 
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Página 15 
Invasão dos Robôs 


Para ganhar 100 pontos pelos robôs U, 
V,W, Xe Ye 10 pontos pelos outros, 
faça as modificações abaixo. 


228 LET H=H+ib 
225 IF P$"T" AND P$C"Z" THEN LET 
H=H+98 


Página 17 
Arma Secreta 


Para acrescentar o sistema de 
contagem, basta colocar as linhas 
abaixo no programa. 


ló LET 5=B 

145 IF 243 THEN LET 5=5+1 

198 GOTO 217 

215 LET S=5+1B 

217 PRINT "VOCE FEZ "55; " PONTOS” 


Página 19 
Fuga! 


Esta é a forma mais simples de incluir 
três robôs, embora torne o jogo 
bastante difícil. 


22 FOR R=i TO 3 
24 PRINT “ROBO *; 
380 NEXT R 

318 STOP 


Página 21 
Avião Pirata 


Para fazer com que você e o pirata 
tenham a mesma probabilidade de 


vencer, troque o .7 da linha 290 para 
Bro 


Página 23 
Bombardeiro Supersônico 


Para aumentar o número de alvos, 
troque o 5 das linhas 30, 70 e 120 por 
um número maior. Você deve usar o 
mesmo número nas três linhas. 


Página 25 
“Iceberg” 


Você pode aumentar o tamanho do 
mapa trocando o 8 das linhas 20, 50, 
70, 80, 110, 120, 160, 170, 290 e 310 
por um número maior. (Use o mesmo 
número em todas essas linhas.) 

Para aumentar o número de icebergs, 
troque o 4 na linha 30 por um número 
maior. 
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Duias Práticos de Microcomputadores 


O que é capaz de fazer um microcomputador! Calcular, evidentemente, mas tam- 
bém organizar perguntas, escrever poemas, jogar uma quantidade de jogos cada 
qual mais palpitante, até mesmo compor música... Pequenos guias práticos de in- 
trodução à microinformática, as obras desta nova coleção nos permitem descobrir 
todas as possibilidades que os microcomputadores nos oferecem. Eles nos iniciam 
na linguagem e no funcionamento do computador, na aprendizagem da programa- 
ção e — por que não? — na criação de programas originais: a clareza dos textos, 
a alegria das cores, a graça dos desenhos, tudo é cóncebido nestes livros para fa- 
zer desta iniciação um prazer 


Um colorido guia para 
melhor compreendermos os 
microcomputadores — 
como trabalham e o que 
fazem, apresentando idéias 
de coisas que podem ser 
feitas com o micro. 
Apresenta um utilíssimo guia 
comparativo dos diversos 
micros existentes no 
mercado brasileiro. 


MANUAL 
DO PROGRAMADOR EM 


Introduz o leitor na 
programação BASIC, através 
de exemplos didáticos, e é 
sobretudo indicado ao jovem 
que começa a programar 
Substitui com vantagens os 
manuais dos fabricantes. 
Apresenta dezenas de dicas 
utilissimas para aprimorar a 
técnica de programação. 


Um guia passo a passo de 
programação para os 
absolutamente iniciantes. 
Apresenta as diferentes 
sua ens e aprofunda no 

SIC, incluindo pequenos 
programas, simples e 
divertidos. Profusamente 
ilustrado a cores. 


13 listagens de programas 
de jogos, para serem 
“rodados” nos micros 

pessoais mais difundidos no 
Brasil. Muito útil para 

ensinar o leitor a 
desenvolver seus próprios 

programas. Além disso, é 

um passatempo fascinante. 


erro ANA 


13 programas fascinantes e 
ao mesmo tempo simples, 
para todo tipo de 
microcomputadores; Jogos 
Intergaláticos, Módulo Lunar, 
iagem ao Futuro, 
Salvamento no Espaço e 
muitos outros, com 
respostas dos problemas. 


Um verdadeiro caderno a 
cores de problemas e 
exercícios, com jogos e 
quebra-cabeças , ideais 

para todo curso de 
programação em BASIC. 
Todas as respostas e 
explicações estão incluídas, 
para ajudar a esclarecer 
todo e qualquer problema. 


PROGRAMAS DE JOGOS DE GUERRA LUTÉCIA sexto 


